home *** CD-ROM | disk | FTP | other *** search
- ;
- ; Linked script for CompuServe Information Service (CIS)
- ; via CIS's own network.
- ; Link this to phone directory entries for CIS phone numbers.
- ;
- ; NOTE: This script assumes that you have set your terminal
- ; options on CIS (see CIS main menu) at 8 bits, no parity, 1 stop
- ; bit. If not, this script may NOT work for you! Your QMODEM
- ; settings should be the same. ALSO: Be sure to use XMODEM
- ; RELAXED protocol if you download CIS files!
- ;
- ; USE YOUR WORD PROCESSOR TO EDIT THIS FILE TO INCLUDE
- ;
- ; [1] Your CIS account#
- ; [2] Your CIS password
- ; [3] Any CIS command(s)
- ;
-
-
- NOTE ** LOGON TO COMPUSERVE ** ; Display message on-screen only
-
- TIMEOUT 60 ; Wait 60 seconds before halting script
-
- TURNOFF ECHO LINEFEED ; Set key parameters for CIS
-
- ;---------------------------------------------------------------------------;
- ; Call CIS; phone number, bps, comm parameters depend on directory entry #. ;
- ; For local #s, contact CIS at 800-848-8990 or 614-457-8650 ;
- ;---------------------------------------------------------------------------;
-
- DELAY 1000 ; Pause 1 second
- SEND '^C' ; Send ^C
-
- WAITFOR ":" ; Wait for CIS to request your account#
-
- SEND "~~12345,1234{" ; [1] Pause 1 second,
- ; then reply with your account#
-
- WAITFOR "Password:" ; Wait for CIS to request your password
-
- SEND "~~FAKE-PASSWORD{" ; [2] Pause 1 second,
- ; then reply with your CIS password
-
- WAITFOR "!" ; Wait for CIS to Request your input
-
- SEND "~~GO PCS-131{" ; [3] Pause for 1 second,
- ; then send any CIS command, such as:
- ; GO PCS-131 (IBM PRO-SIG)
- ; -or-
- ; GO PCS-129 (IBM NOVICE SIG)
-
- RETURN ; return control to keyboard